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Part 5: 


a CAN interface using BASIC537 





If you are new to the 
CAN bus, look for- 
ward to some hard 
work before seeing 
the first usable 
results. After all, at 
least two microcon- 
troller systems have 
to be hooked up to 
CAN bus controllers, 





and a bus-based data link implemented based on the use of talk/listen 
programs. Once you have data travelling over the bus, all further expan- 
sion is really simple. This article attempts to make your first practical 
experiments with the CAN bus as easy as possible. 


Hardware & software design 
by B. Kainka 
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The CAN bus interface described in 
Elektor Electronics November 1999 may 
be controlled using the BASIC537 
higher programming language. 
BASIC537 is an EPROM version of the 
well-known Intel MCS51 BASIC, spe- 
cially adapted and extended for the 
80С537 microcontroller. Many of you 
will be familiar with MCS51 BASIC 
because it was the subject of several 
articles in Elektor Electronics. Originally, 
this BASIC interpreter was developed 
for the (now obsolete) 8052AH -BASIC 
microcontroller. When stored in an 


external (E)PROM, however, it is also 
great for other controllers from Intel’s 
80xx series and second sources (see 
also the 80C32 BASIC Control Com- 
puter described in Elektor Electronics 
February and March 1998). The 537 
‘Lite’ Computer is described elsewhere 
in this magazine — it too is capable of 
running BASIC537. The ancestor of this 
computer, a full-blown 80C 357 micro- 
controller system, was published in our 
June 1997 magazine. 

The new, smaller and cheaper 537 
‘Lite’ Computer is employed here in 
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combination with the CAN bus inter- 
face. The 537 'Lite' is prominently fea- 
tured on this month's cover. 


HARDWARE 
An adaptor board was developed to 
implement a simple connection 
between the 537 ‘Lite’ Computer (fitted 
with a BASIC537 EPROM) and the 
CAN interface board. The circuit dia- 
gram of the adaptor is given in Fig- 
ure 1, the copper track layout and com- 
ponent mounting plan, in Figure 2. As 
you can see on the photograph, there 
are no wiring problems because the 
537 ‘Lite’ board is plugged directly on 
to the adaptor board. The link with the 
CAN interface is then made using a 
length of flatcable (see introductory 
photograph). 

To solvethe power supply problem 
in a simple way, a 5-volt voltage regu- 
lator and supply reversal protection are 
accommodated on the adaptor board. 
In this way, the adaptor board can sup- 
ply -5V to the two other boards. The 
upshot isthat any low-cost wall adaptor 
supplying 9-12 volts unregulated at 
about 300 mA may be connected to 
PCB connector K2. If you already have 
a stabilized 5-volt line available, you 
may omit ІСІ D1, C1 апа C2fromthe 
adaptor board, and 
connect the 5-V supply 
voltage directly to the 
K1 terminals on the 


























Figure 1. Circuit diagram of an 
adaptor board that creates a 
simple link between the 537 


The essential 


adaptor board. ‘Lite’ Computer board and the settings are 
To keep cost down, САМ bus interface. supplied as 
the adaptor board is defaults by the 


much smaller than the 

537 'Lite Computer board to be 
plugged on it. If you cut the adaptor 
board in two along the line indicated 
on the PCB overlay, and fit the two 
sub-boards at the right distance above a 
carrier (e.g. aluminium sheet), the 537 
‘Lite’ Computer is easily plugged on to 
this assembly. The only wire connec- 
tion to make (if necessary) is INT2 
between pin 12 (K3) and pin 32 (K6) 
(see the photograph showing the 537 
‘Lite’ Computer board with the two 
adaptor sub-boards). Thetwo adaptor 
sub-boards have connecting pins for 
theINT2 link, which isalso shown asa 
wire link on the component mounting 
overlay (Figure 2). 


CONTROL IT ALL IN 
BASIC 

In essence, all you need to be able to 
control the CAN interface board is a 
program that looks after a bank of reg- 
isters starting at address ҒОООҺ in the 
CAN controller SJA1000. The XBY 
operator is employed for all access to 
addresses in the external RAM area 
and peripherals. 

To make the introduction as easy 
going as possible, the following para- 
graphs describe the simplest case of a 
data link between two 80C537 systems. 
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program. The 
communication runs at 20 kbits/s. M es- 
sage are sent without the RTR bit — in 
other words, no reply is requested. The 
two systems should fulfil thefollowing 
functions: 


System 1 regularly sends messages 
with Identifier 300 and containing 
eight bytes. The data originates from 
thefirst eight channels of the A-D con- 
verter. The system continuously per- 
forms measurements on eight ana- 
logue inputs. The messages ittransmits 
may be received and processed by апу 
other system connected to the bus. 


System 2 receives all messages on the 
bus and copiesthem to the PC by way 
of the А5232 interface. In fact, this is а 
simple CAN monitor that allows you to 
pick up and examine all data traffic on 
the CAN bus. 


A block diagram of the system config- 
uration is given in Figure 3. A special 
cable is not required to link the two 
systems. Our first experiments in the 
lab indicated that a simple two-wire 
link between pins 4 and 8 of the CAN 
plugs is adequate if the total length 
does not exceed about 1 metre. With 
such a short cable, no difference was 
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noted between the termination resis- 
tors being present or not. 


TRANSMIT PROGRAM 
AND TEST 

Thetransmit program for Controller 1 is 
given in Listing 1. TheCAN controller 
SJA1000 is addressed by the 80537 sys- 
tem via base address OFO00h. The 
address range is defined in line 95 
(BA-OFO00h). If you use a different 
system, all you haveto do (initially) is 
modify BA accordingly. The initialisa- 
tion is carried out as described in the 
artide on the CAN bus interface hard- 
ware. In lines 110 and 200, the results 
of the register programming are 
requested. The program then waits for 
a register bit to go to a specific state. In 
case the controller is not found on the 
bus, or does not function correctly, the 
program will ‘hang’ at this point. If 
everything is successful, however, you 
are greeted with these messages: 


Reset OK 
Init OK 


To start with, it is sufficient to execute 
theinitialisation routine up to line 200. 
An initial check may be made by look- 
ing for a rectangular signal at the test 
pin on the controller board. Whereas 
this pin supplies 8 MHz before the ini- 
tialisation, you will then find 2 MHz. If 
this is okay so far, you may safely 


47 





т 
о 
A 
o 
e 
e 
o 





L 
Б 
Ге” 


N 


І-020000 


Бағаны адымы ақ 


| 4013373 (9) 


Figure 2. Layout and com- 
ponent mounting plan of 


the adaptor board. 


assume that the controller is driven 
with the proper signals. 

Now the complete program may be 
loaded and executed. Experienced as 
you are, you will no doubt have an 
oscilloscope ready to observe data traf- 
fic on the bus. Without a connection 
having been made to a second system, 
you will be ableto find signals on the 
data lines. After a hardware reset and 
without an initialisation you will not be 
able to find the ‘inactive’ level of 2.5 V 


on the two wires. Assoon as the trans- 
mit program is started, data is easily 
recognized as rectangular signals with 
a level of 1 V. The shortest logic levels 
are just 50 us long, which means that 
the transmission rate is indeed 
20 kBits/s. However, you will not fail to 
see that there is a quasi-steady datas- 
tream with 2-ms pauses, rather than 
short data packets as would be 
expected. Not to worry, however, this 
is the normal behaviour of the con- 


Figure 3. Block diagram 
showing how the CAN bus 
is linked to the two 80537 
systems programmed in 


537 BASIC. 
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COMPONENTS LIST 






Capacitors: 
C1, C3 = 10uF 16V (radial) 
C2, C4 = 100nF (ceramic) 


Semiconductors: 
D1 = 1N4001 
IC1 = 7805 


Miscellaneous: 

K1 = 2-way PCB terminal block, 
raster 5mm 

K2 = 2-way PCB terminal block, 
raster 5mm 

K3 = boxheader, straight, 16 pins 

K4 = pin header, 1 row, 4 pins 

K5, K6 = pin header, one row, 
straight, 35 pins 





troller aslong asit has not detected any 
intelligence on the CAN bus. Yet, it is 
not sufficient to connect the second 
controller via the two-wire link, 
because this, like system 1, has to be 
initialised. By the way, the transmitting 
station will continue to send a quasi- 
continuous datastream even if the 
BASIC program is terminated. 


AT THE 

RECEIVER SIDE 

Now we are ready to ‘deploy’ the 
receiver program as given in Listing 2. 
This program is for system number 2. 
As you can see from the listing, the ini- 
tialisation is the same as that used for 
the transmitter. As soon as the initiali- 
sation is done and the message “Init 
OK" has appeared on the PC display, 
the transmitting controller will com- 
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mence its normal operation. From then Listing 1. Transmitter program САМ1.ВА5. 
on, short data packets with a length of 

















just over 5 ms will start to appear on 90 REM Init CAN Controller 
the CAN bus. Finally, the CAN bus 95 ВА-0Ғ000Н 
functions as you, the interested reader, 100 ХВҮ(ВА+00Н) =01Н : REM Reset Mode 
would liketo seeit: data packets being 110 IF (XBY(BA400H). AND. 1) «»1 THEN GOTO 110 
sent back and forth over the bus with- 111 PRINT "Reset OK" 
out any indication of their being read 120 XBY(BA+1FH)=43H : REM CDR, 2 MHz 
anywhere at all! 130 — XBY(BA404H) =0 : REM ACR 
The actual receiver program starts 140 ХВҮ(ВА+05Н) =0ЕЕН : REM AMR, Acceptance Mask, all 
at line 500 and waits for a message 150 XBY(BA«06H) 53H : REM BTRO, 20 Kbit/s* 
which is announced by controller sta- 160 ХВҮ(ВА+07Н) =2ЕН : REM BTR1 
tus bit zero. As soon as a data packet 170 ХВҮ(ВА+08Н) =1АН : REM OCR: 
has arrived, the program may read ten 180 ХВҮ(ВА+01Н) =0ЕН : REM CMR, end sleep mode 
bytes from the controller. The first two 190 ХВҮ(ВА+00Н) =0 : REM CR, end reset mode 
contain the message ID. It is recovered 200 ІР (XBY(BA+00H).AND.1)>0 THEN GOTO 200 
from two bytes in line 570 and then 201 PRINT "init ok" 
sent to the display. As expected, it isthe 500 REM fex Majn Loop fees 
'ID', 300, which was arbitrarily defined 501 REM Send 8 Bytes of AD-Data in message 300 
in thetransmitter program. 510 FOR М-0 TO 7 
520 ХВҮ(ВА+ОСН+М) =АР(М) : REM fill TBI..TB8 
530 NEXT N 
540 |Dz300 : REM Message Identifier 





550 DFLz8 : REM 8 Bytes 

560 GOSUB 1000 : REM Send Massage 

570 FOR T=1 TO 1000 : NEXT T 

580 GOTO 500 

1000 REM XC KE E X X I X X Xx x Send CAN Telegram XC KG KE E X X E X Xx 
1010 IF (XBY(BA*02H). AND. 4) =0 THEN GOTO 1010 : REM SR 
1020 ХВҮ(ВА+0ОАН) =1 МТ(1 0/8) : REM IDTI 

1030 ХВҮ(ВАҒОВН)-(10-8%| NT(ID/8))*324DFL : REM I DT2 
1040 XBY(BA+01H)=0DH : REM CMR, start transmission 
1050 RETURN 




















= 
Listing 2. Receiver program CAN2.BAS 
90 REM I nit CAN Controller 
95 BA=0F000H 
100 ХВҮ(ВА+00 H)=01H : REM Reset Mode 
110 IF (XBY(BA+00H).AND.1)<>1 THEN GOTO 110 
111 РАМТ "Reset OK" 
120 XBY(BA+1FH)=43H : REM CDR, 2 MHz 
130 ХВҮ(ВА+04Н) =0 : REM ACR 
140 XBY(BA+05H) =OFFH : REM AMR, Acceptance Mask, al 
150 ХВҮ(ВА+06Н) =53Н : REM BTRO, 20 Kbit/s* 
160 ХВҮ(ВА+07Н) =2ЕН : REM BTR1 
170 ХВҮ(ВА+08Н) =1АН : REM OCR; 

The user data are read in aloop and 180 ХВҮ(ВА+01Н) =0ЕН : REM CMR, end sleep mode 
displayed in line 610. There , you 190 ХВҮ(ВА+00Н) =0 : REM CR, end reset mode 
(finally...) get the measured values on 200 ІР (ХВУ(ВАҒООН). AND. 1) >0 THEN GOTO 200 
the eight analogue inputs of the first 201 PRINT "Init OK" 
controller system. Figure 4 showsthe 500 КЕМ ******* Receiver Main Loop ******eeeeses 
received data in a terminal window. 510  SR=XBY(BA+02H) : REM Status Register 

520 REM Error Detection and Clear Data Overrun 
FINALLY: 530 if (SR .AND. 2) = 2 then XBY(BA+01H) =8: :Goto 510 
THREE ON THE BUS 540 REM Get Receive Status 
Of course, the results up to now could 550 if (SR .AND. 1) =0 then goto 510 
have been obtained with a rather sim- 560 RE Read recei ved message 
pler RS232 interface. The CAN bus 570 | D=XBY( BA+14H) *84l NT(XBY(BA415H)/32) : PRINT ID 
however will typically not unleash its 580 РЕ =ХВҮ(ВА+15Н). АМО. 15 : rem Data Length 
power until more than two devices are 590 АТА=( ХВҮ(ОРЕ15Н). АМО. 16) /16 : REM RTR not used 
connected to the bus. To end the 600 FOR N=0 To 7 
‘lonely’ existence of the two systems 610 PRINT N , XBY(BA+16H+N) 
discussed so far, a third ‘CANable’ 620 — NEXT М 
device should be added. The program 630 ХВҮ(ВА+01Н) =0СН : REM Release Receive Buffer 
CAN3.BAS shown in Listing 3 (with- 640 6070 510 
out initialisation!) performs the follow- 


ing functions: 
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Listing 3. Receiver & Transmitter program CAN3.BAS 
without initialisation. 


500 RE 
505 RE *XCOX KK KK X e x X x Recei ver XC KG E E KG KG X GG XN XN GI KKK 

510 SR=XBY( BA+02H) REM Status Register 

520 REM Error Detection and Clear Data Overrun 

530 IF (SR. AND. 2) =2 THEN XBY(BA+01H)=8 : GOTO 510 
550 IF (SR. AND. 1) x0 THEN GOTO 510 

560 REM Read received message 

570 | D=XBY( BA+14H) * 8+1 NT(XBY(BA415H)/32): Print ID 
580 DFL=XBY(BA+15H).AND.15 : REM Data Length 

590 RTR=(XBY(QFE15H).AND.16)/16 : КЕМ RTR not used 
600 IF 10<>300 THEN GOTO 660 

610 PORT=0 

620 IF XBY(BA*16H40) >100 THEN PORT=PORT41 

630 IF XBY(BA*16H41) >100 THEN PORT=PORT+2 

640 IF XBY( BA+16H+2) >100 THEN PORT=PORT+4 


ооо лал EEE МІП Loop ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 








BASIC-AEMOTE PIE 


Не Ея Prog (сыны: liria Нәр 


170 HEY (B+ RH} ta : 
iRü SEY (HAIN BEN : 
Wu SEY (RAS ВИН = i 
za IF (XEV(BüsBUH).nHD.1)*0 THEH 
an ЕНІНТ "Init ik" 

ET I ЕЕН sanansa Pecaire Hain Loop nanena 
10 SESNXBV(HA«Hz7H) : НЕН States Register 
топ ЕЕН Error Betection and Clear Bata Gui 
ЕЗІ if (SR „АН, 2) = 7 them XB (Ree 
Sho ЕЕН Get Receive States 

r5 АҒ [ZH .AHD. 1) -Ш then goto 51 

560 REM Read received message 

57ü — ID-XBY(HRe TEH jet IHT[XBY(BA* 15H)2/32). : 
Ao DFLsKBTIBA*15H) .AHD.15 : rem Bata ігі 
zo RTH-(sEV[BFETSHO. AMD. 162/16 : ЕЕН ATA 
emu FOR Н= To ТІРІ 

10 FRIHT H ,ZXEV[(BsT15H*H] 

#20 НЕХТ H 

adu ПЕТСВАе @1и р= н ; 
LL 1! COTO $10 


НЕН ІНІН; : 
REM CHR, end sleep 1 
НЕН ЕН, eed reset pod 
COTO 2 


КЕН Release Receive 


dim d м -а 


=j ih 


N BASIC-AE MITE BHE 
fe Ex ақан бсн Шы Heo 

ТЕСЕ VCAMCANSE MD BAS Га] ЕЗ | == 

111 PRINT “Reset DE" B. 


1728 XBY(HA*1FH)sA3H = 
138 SOF As OOO E 

148 XH'YQ(HAüt-H5Hj*HFFH = 
158 ХЕТ Ва+ ПАН у= 9н = 
1TáB Хоран) ғи = 
17а XH'YQHA-HBH)-71RH = 
188 ХЕТ ВА + П1Ну= ПЕН = 
ПТЕГІНГІТІШЕ 


НЕН COR, 2 HHz 

КЕН АСВ 

ЕЕН АНА, Accepts 
НЕН ATAG, 20 Whi 
НЕН BTE 

НЕН OCE; 

НЕН ГІНЕ, Pmi slew 
REM CR, end reset i 


2u8 IF CRBC E+ HGH) .8HD.3)*H TEEN GUTI 
2101 PRIHT "init ан” 
га НЕН вавы ачаа аа Pai тор ie ie il 


51m НЕН teed 8 Bytes of füD-Data im mes: 
518 FOR Hel TO 7 

сәй — XBY(HA*DCHeH)snB[H] : 
538 WERT H 

5hB 102500} ЕЕН Message Identifier 
55а ЮР. =8 : НЕМ BH Bytes 

қай Gsiw 1800 : REM Send Massage 

Sia FOR 1-1 ІП 1000 : НЕХТ T 

5E гато 5nd 

10800 НЕН ыянытыншышын- Send CAH Telegras 
Tus IF СЕВЕ В+ 2н) „НО, a)" THEM GOT = | 


E k 


REH Fill TRÌ 


"ERR bi Ба i i б 


ё 
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650 WRSFR OE8H,PORT : REM Port 4 Output 

660 XBY(BA+01H)=0CH : REM Release Receive Buffer 
800 REM KKKKKKKK Send AD- Data KKKKKKKKKKK 

810 FOR N=0 TO 7 

820 XBY( BA+0CH+N) =AD(N) 
830 NEXT N 

840 |D=500 : REM Message 
850 DFL=8 : REM 8 Bytes 
860 GOSUB 1000 : REM Send Message 
870 FOR T=1 TO 1000 : NEXT T 

880 GOTO 500 
1000 RE KKKKKKK Send CAN Telegram LEE EE EEEE EEEE: 


RED wi) E s TH 


dentifier 








1010 IF (XBY(BA+02H).AND. 4) =0 THEN GOTO 1010 : REM SR 
1020 XBY(BA+0AH) =I NT(ID/ 8) REM I DT1 
1030 XBY(BA+0BH) =(1D-8*INT(1D/8))*32+DFL : REM I DT2 


1040 XBY(BA+01H) =0DH : 
1050 RETURN 


REM CMR, Start Transmission 


Figure 4. Received 
data in the terminal 


[-[n[ x] ^ window of BASIC537. 


It receives all messages but only 
processes the ones with the ID “300. 
The first three transmitted measure- 
ment values are compared with certain 
extreme values and switch on three 
lines on Port 4if a particular extremeis 
exceeded. 

After processing of the received 
message, a message with the ID '500' is 
returned, where all A-D channels are 
measured and transmitted again. As 
soon as the third system is connected 
to the bus, System 2 will also supply 
data with ID ‘500’ to the terminal (see 
Figure 5). 
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Note the three program listings dis- 
cussed in this article are available for 
downloading from the Elektor Elec- 
tronics website at ww w.elektor-electron- 
ics.co.uk 
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Articleediting (German original): E. Krempelsauer 
Design editing: K. Walraven 


Figure 5. Reception of 
messages with Identi- 
fiers (IDs) ‘300’ and 


P “500”. 
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